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~- LoaderBcdUtilities.mesa 

-- Last Modified by Sandman, May 12, 1978 2:35 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs" USING [ 

CTHandle, CTIndex. CTNull , CTRecord, EXPHandle. EXPIndex, EXPNull , 

EXPRecord, FTHandle, FTIndex, FTNull . FTRecord, IMPHandle, IMPIndex, 

IMPNun, IMPRecord, MTHandle. MTIndex, MTNull , MTRecord, Namee, 

NameRecord, NTHandle, NTIndex, NTNull , NTRecord, SGHandle, SGIndex, 

SGNull. SGRecord], 
LoaderBcdUtilDefs: FROM "loaderbcdutil def s" USING [BcdBase], 
LoadStateDefs: FROM "loadstatedef s" USING [UpdateLoadStateDA] , 
SegmentDefs: FROM "segmentdef s" USING [ 

DeleteFileSegment , FileSegmentAddress , FileSegmentHandle, Swapin, Unlock]; 

DEFINITIONS FROM LoaderBcdUtilDefs, BcdDefs; 

LoaderBcdUtilities: PROGRAM IMPORTS LoadStateDefs, SegmentDefs EXPORTS LoaderBcdUtilDefs « PUBLIC 
BEGIN 

EnumerateConf igTable: PROCEDURE [ 

bed: BcdBase, proc: PROCEDURE [CTHandle, CTIndex] RETURNS [BOOLEAN]] 

RETURNS [cth: CTHandle, cti : CTIndex] - 

BEGIN 

ctb: CARDINAL = LOOPHOLE[bcd + bcd.ctOff set] ; 

FOR cti <- FIRST[CTIndex], cti + SIZE[CTRecord] UNTIL cti = bcd.ctLimit DO 

cth <- ctb+cti ; 

IF proc[cth, cti] THEN RETURN; 

ENDLOOP; 
RETURN[NIL, CTNull]; 
END; 

EnumerateExportTable: PROCEDURE [ 

bed: BcdBase. proc: PROCEDURE [EXPHandle, EXPIndex] RETURNS [BOOLEAN]] 

RETURNS [eth: EXPHandle, eti: EXPIndex] =« 

BEGIN 

etb: CARDINAL = LOOPHOLE[bcd + bed . expOf f set] ; 

FOR eti ^ FIRST[EXPIndex], eti + SIZE[EXPRecord] + (etb+eti) . size 

UNTIL eti = bcd.expLimit DO 

eth <- etb+eti ; 

IF proc[eth, eti] THEN RETURN; 

ENDLOOP; 
RETURN[NIL, EXPNull]; 
END; 

EnumeratelmportTable: PROCEDURE [ 

bed: BcdBase, proc: PROCEDURE [IMPHandle, IMPIndex] RETURNS [BOOLEAN]] 

RETURNS [ith: IMPHandle, iti: IMPIndex] = 

BEGIN 

itb: CARDINAL = LOOPHOLE[bcd + bed . impOf f set] ; 

FOR iti ♦- FIRST[IMPIndex], iti + SIZE[IMPRecord] UNTIL iti = bcd.impLimit DO 

ith «- itb+iti; 

IF proc[itb+iti, iti] THEN RETURN; 

ENDLOOP; 
RETURN[NIL, IMPNull]; 
END; 

EnumerateModuleTable: PROCEDURE [ 

bed: BcdBase, proc: PROCEDURE [MTHandle, MTIndex] RETURNS [BOOLEAN]] 

RETURNS [mth: MTHandle. mti : MTIndex] « 

BEGIN 

mtb: CARDINAL = LOOPHOLE[bcd + bed .mtOf f set]; 

FOR mti ^ FIRST[MTIndex]. mti + SIZE[MTRecord] + (mtb+mti ). frame . length 

UNTIL mti = bed.mtLimit DO 

mth ♦- mtb+mti ; 

IF proc[mth, mti] THEN RETURN; 

ENDLOOP; 
RETURN[NIL, MTNull]; 
END; 

EnumerateNameTable: PROCEDURE [ 

bed: BcdBase, proc: PROCEDURE [NTHandle. NTIndex] RETURNS [BOOLEAN]] 

RETURNS [nth: NTHandle, nti : NTIndex] « . 

BEGIN 
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ntb: CARDINAL = LOOPHOLE[bcd + bed. ntOff set] ; 

FOR nti <- FIRST[NTIndex], nti + SIZE[NTRecord] UNTIL nti « bcd.ntLimit DO 

nth *- ntb+nti ; 

IF proc[nth. nti] THEN RETURN; 

ENDLOOP; 
RETURN[NIL, NTNull]; 
END; 

EnumerateSegTable: PROCEDURE [ 

bed: BcdBase. proc: PROCEDURE [SGHandle, SGIndex] RETURNS [BOOLEAN]] 

RETURNS [sgh: SGHandle, sgi: SGIndex] « 

BEGIN 

sgb: CARDINAL « LOOPHOLE[bcd + bcd.sgOff set] ; 

FOR sgi <- FIRST[S6Index], sgi + SIZE[SGRecord] UNTIL sgi = bcd.sgLimit DO 

sgh <- sgb+sgi ; 

IF proc[sgh, sgi] THEN RETURN; 

ENDLOOP; 
RETURN[NIL, SGNull]; 
END; 

EnumerateFileTable: PROCEDURE [ 

bed: BedBase, proe: PROCEDURE [FTHandle. FTIndex] RETURNS [BOOLEAN]] 

RETURNS [fth: FTHandle. f ti : FTIndex] « 

BEGIN 

ftb: CARDINAL = LOOPHOLE[bed + bed.f tOf f set] ; 

FOR fti <- FIRST[FTIndex], fti + SIZE[FTReeord] UNTIL fti = bed.ftLimit DO 

fth *- ftb+fti; 

IF proc[fth, fti] THEN RETURN; 

ENDLOOP; 
RETURN[NIL, FTNull]; 
END; 

FindName: PROCEDURE [bed: BedBase. owner: Namee] RETURNS [name: NameReeord] « 
BEGIN 

n: NTHandle; 
FindOwner: PROCEDURE [nth: NTHandle. nti: NTIndex] RETURNS [BOOLEAN] « 

BEGIN 

RETURN[owner = nth. item]; 

END; 
IF (n ^ EnumerateNameTab1e[bed, FindOwner] .nth) » NIL 

THEN name ^ [0] 

ELSE name <- n.name; 
RETURN 
END; 

SetUpBed: PROCEDURE [bedseg: SegmentDef s . FileSegmentHandle] RETURNS [bed: BedBase] 
BEGIN OPEN SegmentDefs; 
Swapln[bedseg]; 

RETURN [F i 1 eSegmentAdd res s[ bedseg]]; 
END; 

ReleaseBedSeg: PROCEDURE [bedseg: SegmentDefs . FileSegmentHandle] = 
BEGIN OPEN SegmentDefs; 
LoadStateDef s.UpdateLoadStateDA[bedseg]; 
Unloek[bedseg]; 

IF bedseg. lock = THEN Del eteFileSegment[bedseg]; 
END; 

END 



